From: Glenn Morris <rgm@gnu.org>
Date: Thu, 19 Feb 2004 01:18:23 +0000 (+0000)
Subject: (calendar-goto-julian-date): Use assoc-string instead of
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~24000
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=6a56160be5279b11783ef7e6516a87b410e5e9a2;p=emacs.git

(calendar-goto-julian-date): Use assoc-string instead of
assoc-ignore-case.
---

diff --git a/lisp/calendar/cal-julian.el b/lisp/calendar/cal-julian.el
index ac422602dc4..67fb8515b24 100644
--- a/lisp/calendar/cal-julian.el
+++ b/lisp/calendar/cal-julian.el
@@ -115,12 +115,12 @@ Driven by the variable `calendar-date-display-form'."
                      today))))))
           (month-array calendar-month-name-array)
           (completion-ignore-case t)
-          (month (cdr (assoc-ignore-case
+          (month (cdr (assoc-string
                         (completing-read
                          "Julian calendar month name: "
                          (mapcar 'list (append month-array nil))
                          nil t)
-                       (calendar-make-alist month-array 1))))
+                       (calendar-make-alist month-array 1) t)))
           (last
            (if (and (zerop (% year 4)) (= month 2))
                29